﻿Public Class FormCiudadListado
    Dim classController As New Class_RC_Controller.rc_Mantenimiento()

    Private m_frmciudad As FrmCiudad
    Public Property frmciudad() As FrmCiudad
        Get
            Return m_frmciudad
        End Get
        Set(ByVal value As FrmCiudad)
            m_frmciudad = value
        End Set
    End Property
    Private Sub Cargarciudad()

        Dim dt As New DataTable
        dt = classController.get_Ciudad_All(oiml.dbConn, 0, txtDescripcion.Text)
        dgCiudad.DataSource = dt
    End Sub
    Private Sub txtDescripcion_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtDescripcion.KeyDown
        If e.KeyCode = Keys.Enter Then
            CargarCiudad()
        End If
    End Sub
    Private Sub btnEditar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditar.Click
        Try
            If dgCiudad.SelectedRows.Count > 0 Then
                Dim Codciudad As New Integer
                Codciudad = dgCiudad.SelectedRows(0).Cells(0).Value

                If FrmCiudad Is Nothing Then
                    FrmCiudad = New FrmCiudad
                    FrmCiudad.codciudad = Codciudad
                    'If frmServicios.ShowDialog() = Windows.Forms.DialogResult.OK Then
                    FrmCiudad.ShowDialog()
                    Cargarciudad()
                    FrmCiudad.Dispose()
                    FrmCiudad = Nothing
                    'End If
                Else
                    FrmCiudad.codciudad = Codciudad
                    FrmCiudad.ShowDialog()
                End If
            End If
        Catch ex As Exception
            MessageBox.Show("Error: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub
    Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
        Me.Close()

    End Sub
    Private Sub txtBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBuscar.Click
        CargarCiudad()
    End Sub

    Private Sub dgciudad_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dgCiudad.KeyDown
        If e.KeyCode = Keys.Enter Then
            btnEditar_Click(sender, e)
        End If

    End Sub

    Private Sub dgciudad_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dgCiudad.DoubleClick
        btnEditar_Click(sender, e)
    End Sub

    Private Sub FormCiudadListado_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dgCiudad.AutoGenerateColumns = False
        Cargarciudad()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '    If frmciudad Is Nothing Then
        frmciudad = New FrmCiudad()
        frmciudad.ShowDialog()
        Cargarciudad()
        
    End Sub

End Class